home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / TMX.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.3 KB  |  59 lines
  1. # The Message eXchange (Australia) PPP script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 5-12-95 Earl White
  4.  
  5. STIRNG username
  6. STIRNG password
  7. STIRNG IP
  8.  
  9. TRACE OFF
  10.  
  11. SetTimeout      90                      # reset maximum script timeout
  12.  
  13. # Get IP address from qdeck.ini
  14. CfgGetValue "IPaddress" IP
  15.  
  16. IF result = 0 THEN
  17.     GetInput "Enter your IP Address:" IP
  18.     IF result = 0 THEN
  19.         PRINT "Warning, no IP Address entered."
  20.     ELSE
  21.         PRINT "IP Address set to:"; IP
  22.     ENDIF
  23. ENDIF
  24.  
  25. # Get username from access method
  26. CfgGetValue "Username" username
  27.  
  28. IF result = 0 THEN
  29.     GetInput "Enter your username:" username
  30.     IF result = 0 THEN
  31.         PRINT "Warning, no username entered."
  32.     ELSE
  33.         PRINT "Username set to:"; username
  34.     ENDIF
  35. ENDIF
  36.  
  37. CfgGetValue "Password" password
  38.  
  39. IF result = 0 THEN
  40.     GetPassword "Enter your password:" password
  41.     IF result = 0 THEN
  42.         PRINT "Warning, no password entered."
  43.     ELSE
  44.         PRINT "Password set."
  45.     ENDIF
  46. ENDIF
  47.  
  48. CommWaitFor "name: "         # wait for username
  49. CommSend        username        # send user name
  50. CommSend        "%r"            # send carriage return
  51.  
  52. CommWaitFor "word: "        # wait for password prompt
  53. CommSend        password        # send password
  54. CommSend        "%r"            # send carriage return
  55.  
  56.  
  57. END                             #success if we got this far
  58.  
  59.